## Warning in validateCoords(lng, lat, funcName): Data contains 17 rows with
## either missing or invalid lat/lon values and will be ignored
##          PFBS  PFHpA   PFHxS    PFNA   PFOA   PFOS
## PFBS   1.0000 0.5703  0.8990 -0.0260 0.6643 0.6821
## PFHpA  0.5703 1.0000  0.5896  0.5228 0.8121 0.7546
## PFHxS  0.8990 0.5896  1.0000 -0.1065 0.6511 0.6881
## PFNA  -0.0260 0.5228 -0.1065  1.0000 0.5051 0.3152
## PFOA   0.6643 0.8121  0.6511  0.5051 1.0000 0.7577
## PFOS   0.6821 0.7546  0.6881  0.3152 0.7577 1.0000

rain_pfasdates <- rainfall %>%
  filter(DATE %in% PFAS_dates)%>%
  filter(DATE > "2016-08-04")

rainfall_historical_updated<- ggplot(rain_pfasdates, aes(x=DATE, y=PRCP, group=STATION)) +
  geom_line(aes(color=STATION))+
  geom_point(aes(color=STATION))
ggplotly(rainfall_historical_updated)

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[layout]
##      [,1]  [,2]  [,3] [,4] [,5] [,6]  [,7]  [,8]  [,9]  [,10] [,11] [,12]
## [1,] PFBS  PFBS  PFBS PFBS PFBS PFHpA PFHpA PFHpA PFHpA PFHxS PFHxS PFHxS
## [2,] PFHpA PFHxS PFNA PFOA PFOS PFHxS PFNA  PFOA  PFOS  PFNA  PFOA  PFOS 
##      [,13] [,14] [,15]
## [1,] PFNA  PFNA  PFOA 
## [2,] PFOA  PFOS  PFOS 
## 15 Levels: EtFOSA GenX MeFOSA PFBS PFDA PFDoA PFHpA PFHxA PFHxS ... PFUnA

## TableGrob (5 x 3) "arrange": 15 grobs
##     z     cells    name           grob
## 1   1 (1-1,1-1) arrange gtable[layout]
## 2   2 (1-1,2-2) arrange gtable[layout]
## 3   3 (1-1,3-3) arrange gtable[layout]
## 4   4 (2-2,1-1) arrange gtable[layout]
## 5   5 (2-2,2-2) arrange gtable[layout]
## 6   6 (2-2,3-3) arrange gtable[layout]
## 7   7 (3-3,1-1) arrange gtable[layout]
## 8   8 (3-3,2-2) arrange gtable[layout]
## 9   9 (3-3,3-3) arrange gtable[layout]
## 10 10 (4-4,1-1) arrange gtable[layout]
## 11 11 (4-4,2-2) arrange gtable[layout]
## 12 12 (4-4,3-3) arrange gtable[layout]
## 13 13 (5-5,1-1) arrange gtable[layout]
## 14 14 (5-5,2-2) arrange gtable[layout]
## 15 15 (5-5,3-3) arrange gtable[layout]